home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir42 / a2z.zip / INSTALL.BAT < prev    next >
DOS Batch File  |  1994-02-07  |  2KB  |  77 lines
  1. Echo Off
  2. Color 1;37;44
  3. Border 3
  4. Rem -------------------------------------
  5. Cls
  6. Echo    ▄▄  ▄▄▄▄ ▄▄▄▄
  7. Echo   █  █ ▄▄▄█  ▄▄▀   Install
  8. Echo   █▀▀█ █▄▄▄ █▄▄▄
  9. Echo  
  10. Rem -------------------------------------
  11. Echo Install From Drive?
  12. Query Ask > Answer.Bat
  13. Call Answer
  14. Del Answer.Bat
  15. Set Input= %Ask%:
  16. Rem -------------------------------------
  17. Echo Install To Drive?
  18. Query Ask > Answer.Bat
  19. Call Answer
  20. Del Answer.Bat
  21. Set Output= %Ask%:
  22. Rem -------------------------------------
  23. Echo Install From %Input% To %Output%\A2Z?  Hit Enter To Continue Or Hit Ctrl-C To Abort
  24. Pause
  25. Rem -------------------------------------
  26. %Output%
  27. Md\A2Z
  28. Rem -------------------------------------
  29. %Input%
  30. Copy *.* %Output%\A2Z
  31. Rem -------------------------------------
  32. If Exist %Input%\Dos\Sort.Exe Copy %Output%\Dos\Sort.Exe %Output%\A2Z\Xsort.Exe
  33. If Exist %Output%\Dos\Sort.Exe Copy %Output%\Dos\Sort.Exe %Output%\A2Z\Xsort.Exe
  34. Rem -------------------------------------
  35. %Output%
  36. Cd\A2Z
  37. A2Zcnf
  38. Cls
  39. Echo A2Z Installed!
  40. Echo  
  41. Rem -------------------------------------
  42. Echo Print 15 Page Demo Guide?
  43. Echo Enter 'N' To Bypass
  44. Echo Hit Enter To Print
  45. Query Ask > Answer.Bat
  46. Call Answer
  47. Del Answer.Bat
  48. If "%Ask%" == "n" Goto Dir
  49. If "%Ask%" == "N" Goto Dir
  50. Rem -------------------------------------
  51. :Prtdemo
  52. Copy A2Zdemo.Doc Prn
  53. Echo Got A2Z Demo Guide?  Hit Any Key When Printed...
  54. Pause
  55. Rem -------------------------------------
  56. :Dir
  57. Dir > A2Zdiu.$$$
  58. If Exist A2Zdir.$$$ Del A2Zdir.$$$
  59. If Exist Xsort.Exe Goto Sort
  60. Rename A2Zdiu.$$$ A2Zdir.$$$
  61. Goto Load
  62. Rem -------------------------------------
  63. :Sort
  64. Xsort < A2Zdiu.$$$ > A2Zdir.$$$
  65. Del A2Zdiu.$$$
  66. Rem -------------------------------------
  67. :Load
  68. Nonum
  69. A2Zdir
  70. A2Zbase
  71. Rem -------------------------------------
  72. Color 0;37;40
  73. Border 0
  74. Cls
  75. Rem -------------------------------------
  76. :Exit
  77.